Option Explicit
Sub F_Sample034()
    'Microsoft ActiveX Data Objects 2.X Library ]wޥζ
    'Microsoft ADO Ext. 2.X for DDL and Security ]wޥζ
    'ոF_Data.mdb
    Dim myCon      As New ADODB.Connection
    Dim myCat      As New ADOX.Catalog
    Dim mytbl      As ADOX.Table
    Dim mySht      As Worksheet
    Dim i          As Long
    Dim myFileName As String
    myFileName = "F_Data.mdb"			'wɮצW
    myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & ThisWorkbook.Path & "\" & myFileName & ";"
    Set myCat.ActiveConnection = myCon
    Worksheets.Add					'sWu@
    i = 1
    'wDC
    Cells(1, 1).Resize(, 3).Value = Array("NO.", "TBL_NAME", "TYPE")
    For Each mytbl In myCat.Tables
        i = i + 1
        Cells(i,1).Resize(,3).Value = Array(i-1,mytbl.Name,mytbl.Type)
    Next
    myCon.Close
    Set mytbl = Nothing					'
    Set myCat = Nothing
    Set myCon = Nothing
End Sub
